00010 



XLIST 
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00030 

00040 .CALLED FROM COMMAND DECODER WHICH IS CALLED FROM CLOCK ROUTINE 

00050 ;WITH FOLLOWING ACS SET: 

00060 ;TAC= BYTE POINTER TO COMMAND STRING(SPACE OR CR AFTER COMMAND NAME) 

00070 ; ITEM = JOB NUMBER 

00080 ;DAT = BYTE POINTER TO LAST OUTPUT CHARACTER 

00090 ;DEVDAT= ADDRESS OF DEVICE DATA BLOCK INITIATING COMMAND 

00100 JJDAT = ADDRESS OF JOB DATA AREA, = IF NO JOB AREA 

00110 

00120 ;UPON RETURN FROM COMMAND SETUP ROUTINE, A CR-LF IS ADDED IF 

00130 ;NEEDED AND TTY IS STARTED 

00140 

00150 ;SINCE THE COMMAND DECODER IS CALLED FROM THE CLOCK ROUTINE 

00160 ;COMMAND SETUP ROUTINES MUST RUN TO COMPLETION QUICKLY 

00170 ;IF A COMMAND FUNCTION CANNOT DO THIS, IT MUST JUST SET 

00180 ;THE JOB TO A RUNABLE STATUS AND RETURN I MEDIATELY 

00190 

00200 

00210 ; "IJOB" - INITIALIZE JOB 

00220 INTERNAL IJOB 

00230 EXTERNAL RADX10 , JOB I N I , JOBK I L , CRLF, MONJOB 



00240 

000000 254000 000000 00250 IJOB: JRST JOBINI 

00260 

00270 ;PRINT JOB NUMBER 

00280 

00290 INTERNAL PJOB 

000001 200040 000004 00300 PJOB! MOVE TAC, ITEM 

000002 260140 000000 00310 PUSHJ PDP.RADX10 

000003 254000 000000 00320 JRST CRLF 

00330 

00340 ;KILL JOB(MUST HAVE CORE ASSIGNED) 

00350 

00360 INTERNAL KJOB 

000004 254000 000000 00370 KJOB: JRST JOBKIL 
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000005 
000006 
000007 



000010 
000011 
000012 



000013 
000014 
000015 

000016 
000017 
000020 
000021 



260140 
254000 
254000 



000013' 

000000 

000000 



260140 000013' 
254000 000006' 
254000 000000 



260140 000000 

254000 000016' 

254000 000020' 

326100 000000 

550111 000000 

505100 010000 

254000 000000 



00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 



J "START I" OR "START" - START AT LOC. L OR STARTING ADDRESS 

INTERNAL START 

EXTERNAL OCTIN, JOBS A , STARTl, COMER A , STARTU, CPOPJ, CPOPJl , STARTM 



START: PUSHJ PDP.STRT 
JrST COMErA 
JRST STARTU 



; ERROR 

;go set JOB TO START(CONSOLE in user mo 



J "STARTC L" OR "STARTC" - START AT LOC. L(TTY IN COMMAND MODE) 

INTERNAL STARTC 
EXTERNAL STARTM 



STARTC: 



PUSHJ PDP,STRT 
JRST COMERA 
JRST STARTM 



;routine to scan argument 



STRT 

ST2: 
ST3: 



PUSHJ PDP. OCTIN 
JRST ST2 
JRST ST3 



;error 

;fo set job TO START(TTY IN COM. MODE) 



.'CONVERT OCTAL NO. 

;EITHER NO NUMBER OR ERROR 

;START JOB C(TAC1) 



JUMPN TAC1, CPOPJ ;NOT A NUMBER IF NON-ZERO 

HRRZ TAC1, JOBSA(JDAT) ;NO, START AT STARTING ADDRES 

HRLI TAC1. 10000 ;USER MODE FLAG 

JRST CPOPJl ;OK RETURN 
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000022 
000023 
000024 
000025 

000026 
000027 
000030 
000031 



000032 
000033 
000034 
000035 



000036 
000037 
000040 

000041 
000042 

000043 
000044 



000045 
000046 
000047 



205100 002000 

616104 000000 

254000 000000 

265040 000000 

416031 623650 

202071 747250 

446352 542432 

050000 000000 



205100 002000 

616104 000023' 

254000 000000 

254000 000025' 



550111 000000 

326100 000043' 

265040 000025' 

472364 042210 

520321 200000 

505100 010000 

254000 000007' 



265040 000040' 
442131 446236 
064240 000000 



00660 
00670 
00680 
00690 
00700 
00710 
00720 
00730 
00740 
00750 
00760 



00770 
00780 
00790 
00800 
00810 
00820 
00830 
00840 
00850 
00860 
00870 
00880 
00890 
00900 
00910 
00920 
00930 
00940 
00950 
00960 
00970 
00980 
00990 
01000 
01010 
01020 
01030 
01040 
01050 
01060 
01070 
01080 



; "CONT" - CONTINUE EXECUTION FROM WHERE LEFT OFF 

INTERNAL CONT 

EXTERNAL CONTU,CONMES, JBTSTS 

CONT: MOVSI TAC1, JFRR 

TDNN TAC1. JBTSTS(ITEM) MS JOB ERROR BIT SET? 

JRST CONTU JNO, GO SET JOB TO CONTINUE 

CONTA: JSP TAC.CONMES ;YES, PRINT CANT CONTINUE 

ASCI2 /CAN'T CONTINUE 



; "CONTC" - CONTINUE EXECUT I ON ( TTY REMAINS IN COMMAND MODE) 

INTERNAL CONTC 
EXTERNAL CONTM 



CONTC: MOVSI TAC1. JERR 

TDNN TAC1. JBTSTS( ITEM) 
JRST CONTM ;NO 

JRST CONTA ;YES 



; IS JOB ERROR BIT SET? 



; "DDT" — START EXECUTION AT DDT IN USER AREA 
INTERNAL DDTGO 
EXTERNAL JOBDDT , STARTU 



DDTGO 



HRRZ TAC1. JOBDDT(JDAT) 



JGET DDT STARTING ADDRESS 



JUMPN TAC1.DDT1 
JSP TAC.CONMES 

ASCII /NO DDT 
/ 

ddti: hrli tac1.usrmod 

jrst startu 
;digital maynard 

internal digital 

digital: jsp tac.conmes 
asciz /hello 

/ 



GO START JOB IF NON-ZERO 

JZERO, PRINT"NO DDT" 



:USER MODE BIT 
GO SET TO RUN JOB 
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01090 








01100 








01110 








01120 








01130 








01140 








01150 








01160 








01170 








01180 








01190 








01200 


000050 


260140 


000000 


01210 


000051 


254000 


000077' 


01220 


000052 


336040 


000002 


01230 


000053 


326440 


000000 


01240 


000054 


260140 


000000 


01250 


000055 


254000 


000065' 


01260 


000056 


550444 


000000 


01270 


000057 


322440 


000016' 


01280 


000060 


402011 


000000 


01290 


000061 


505051 


000060 ' 


01300 


000062 


541051 


000000 


01310 


000063 


251051 


000000 


01320 


000064 


263140 


000000 


01330 
01340 


000065 


260140 


000002' 


01350 


000066 


265040 


000045 • 


01360 
01370 


000067 


202152 


242612 


01380 


000070 


201431 


320204 




000071 


462370 


345646 




000072 


202310 


543250 




000073 


261011 


647634 




000074 


425010 


151646 




000075 


446171 


642610 




000076 


064240 


000000 


01390 


000077 


326100 


000011' 


01400 


000100 


254000 


000000 


01410 



; "CORE #" - ASSIGNS #*1024 WORDS OF CORE TO JOB 

; "CORE" WITH NO ARGUMENT IS EQUIVALENT TO "CORE 0" 

INTERNAL CORE 

EXTERNAL CORE1 , DEC I N , ANYR I N , CONMES, COMER A , NOTENF 
EXTERNAL JOBPF I , JBT ADR, CPOPJ, JOBPRT . JOBPRl, JOBZER 
EXTERNAL RADX10 



CORE 



C0R2: 



/ 

C0R3: 



;get NO. OF IK BLOCKS 

JERROR 

; IS ZERO BEING ASKED FOR? 

;YES, RELEASE ALL DEVICES IF THERE WAS 



PUSHJ POP. DECIN 

JRST COR3 

SKIPN TACTAC1 

JUMPN JDAT, JOBZER 

PUSHJ PDP.CORF1 

JRST C0R2 ;CORE NOT AVAILABLE (AC TAC = BLO CKS L 

HRRZ JDAT, JBTADR(ITEM) ;CORE GRANTED, CLEAR PART OF 

JUMPE JDAT, CPOPJ ;UNLESS ALL CORE WAS RETURNED 

SETZM JOBPRT(JDAT) JCLEAR PART PROTECTED FROM 10 

HRLI TAC, JOBPRT(JDAT) 

HRRI TAC, JOBPRKJDAT) 

BLT TAC, JOBPFMJDAT) 

POPJ POP, 



PUSHJ PDP.RADX10 
JSP TAC, CONMES 



;PRINT NO. OF FREE IK BLOCKS LEFT 



ASCIZ / FREE IK BLOCKS LEFT, NONE ASSIGNED 



JUMPN TAC1, 
JRST NOTENF 



COMERA ;NOT A NO. IF NON-ZERO, APPEND "?" 
;NOT ENOUGH ARGUMENT 
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01420 








01430 








01440 








01450 








01460 








01470 








01480 








01490 


000101 


201100 


000000 


01500 


000102 


254000 


000000 


01510 
01520 
01530 
01540 
01550 
01560 
01570 


000103 


201100 


000000 


01580 


000104 


254000 


000102' 


01590 



"SAVE FILE-NAME" - SAVES JOB AREA ON RETRIEVABLE DEVICE 
ONLY A SAVE OR A GET IN PROGRESS FOR EACH JOB 
NO ATTEMPT IS MADE TO SAVE DEVICE ASSIGNMENTS, ACS, OR PC 

INTERNAL SAVE 

EXTERNAL SAV JOB . START1 , SGSET 



SAVE: MOVEI TAC1, SAVJOB 
JRST SGSET 



;SETUP TO RUN SAVJOB 



; "GET DEVICE:FILE-NaME" 
INTERNAL GET 
EXTERNAL GETJOB 



SETS UP JOB AREA FROM RETRIEVABLE DEVICE 



GET: 



MOVEI TAC1, GETJOB 
JRST SGSET 



JSETUP TO RUN GET JOB 
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000105 
000106 
000107 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 

000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
000130 

000131 
000132 
000133 
000134 



260140 
322100 
200500 
261140 
201100 
554300 
312506 
254000 
260140 
254000 
254000 

200046 
316040 
254000 
135540 
620040 
316040 
260140 
254000 
322540 



000000 

000100' 

000002 

000001 

400000 

000000 

000000 

000120' 

000000 

000135' 

000151 ' 

000000 

000000 

000131' 

000000 

777777 

000012 

000115' 

000131 ' 

000151' 



554306 000003 
326300 000113' 
262140 000001 
254000 000211' 



01600 
01610 
01620 
01630 
01640 
01650 
01660 
01670 
01680 
01690 
01700 
01710 
01720 
01730 
01740 
01750 
01760 
01770 
01780 
01790 
01800 
01810 
01820 
01830 
01840 
01850 
01860 
01870 
01880 
01890 
01900 
01910 
01920 
01930 
01940 
01950 
01960 



{"ASSIGN DEVtNAME" - ASSIGNS DEV TO JOB AND GIVES IT LOGICAL NAME NAM 

.TEMPORARY ACS 

T1=BUFPNT 
T=BUFWRD 

INTERNAL ASSIGN 

EXTERNAL CTEXT1, NOTENF, DEVLST, ASSASG, CONMES, PJOBN, ANYRDX, ERNAM 

EXTERNAL CRLF , DEVLG » SYSTAP 



ASSIGN 



ASSN: 
ASSG0 



ASSGi: 



ASSG2: 



{GET FIRST ARGUMENT 
;NO ARGUMENT TYPED IF 

;SAVE DEVICE NAME 
;SAVE INPUT BYTE POINTER 
{SETUP ASSIGNED BY CONSOLE BIT 



PUSHJ POP, CTFXT1 

JUMPE TAC1, NOTENF 

MOVE Tl, TAC1 

PUSH PDP, TAC 

MOVEI TAC1, ASSCON 

HLR2 DEVDAT, DEVLST 

CAME Tl.DEVNAM(DEVDAT) 

JRST ASSGI {NO 

PUSHJ PDP, ASSASG {YES, TRY TO ASSIGN DEVICE 

JRST ASSER1 {ALREADY ASSIGNED TO ANOTHER JOB 

JRST ASSFIN {ASSIGNED 



{DOES PHYSICAL NAME MATCH? 



MOVE TACDEVNAM(DEVDAT) 

CAMN TAC, SYSTAP 

JRST ASSG2 

LDB T, PJOBN 

TRZ TAC-1 

CAMN TAC, Tl 

PUSHJ PDP, ASSASG 

JRST ASSG2 

JUMPE T, ASSFIN 



,' IS THIS THE SYSTEM TAPE? 

JYES 

{SAVE OLD JOB NUMBER FOR THIS 

{COMAPRE LEFT HALF ONLY 



{MATCH, TRY TO ASSIGN IT 

{KEEP LOOKING 

{IF OLD JOB NUMBER 0» DEVICE PREVIOSLY 



HLRZ DEVDAT, DEVSER ( DEVDAT ) 
JUMPN DEVDAT, ASSG0 
POP PDP, TAC 
JRST NOTDEV 



{PRINT NO SUCH DEVICE 
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000135 
000136 
000137 
000140 
000141 
000142 
000143 

000144 
000145 
000146 
000147 
000150 



262140 
201040 
260140 
201100 
135040 
260140 
254000 



000001 

000144' 

000066' 

000012 

000123' 

000000 

000003' 



406312 242602 
422624 040646 
516230 747212 
421012 447500 
452370 220000 



01970 
01980 
01990 
02000 
02010 
02020 
02030 
02040 
02050 
02060 
02070 
02080 



;already assigned to another JOB 

ASSERi: POP PDP, TAC 

MOVEI TAC, ASSMS2 
PUSHJ PDP, CONMES 
MOVEI TAC1, tolB 
LDB TAC, PJOBN 
PUSHJ PDP.ANYRDX 
JRST CRLF 

ASSMS2: ASCIZ /ALREADY ASSIGNED TO JOB / 









02090 










02100 


JDEVICE 








02110 




000151 


262140 


000001 


02120 


ASSFIN: 


000152 


261140 


000006 


02130 




000153 


260140 


000105' 


02140 




000154 


332040 


000002 


02150 




000155 


260140 


000000 


02160 
02170 




000156 


254000 


000161' 


02180 




000157 


201040 


000173' 


02190 




000160 


260140 


000137' 


02200 




000161 


200303 


000000 


02210 


ASSFi: 


000162 


202106 


000005 


02220 




000163 


205100 


400000 


02230 




000164 


412106 


000004 


02240 




000165 


260140 


000000 


02250 




000166 


262140 


000006 


02260 




000167 


265040 


000160' 


02270 
02280 




000170 


202032 


351622 


02290 




000171 


436350 


542032 






000172 


050000 


000000 


02300 
02310 


/ 


000173 


462370 


744606 


02320 


LOGERR: 


000174 


406304 


047202 






000175 


466124 


040630 






000176 


512130 


142262 






000177 


202231 


620252 






000200 


516125 


420000 







JDEVICE ASSIGNED, GIVE IT A LOGICAL NAME 



;RESTORE INPUT BYTE POINTER 

;SAVE DDB ADDRESS 

;GET SECOND ARG, LOGICAL DEVICE NAME 

MS THERE A LOGICAL NAME SPECIFIED? 

;YES, SEE IF IT IS ALREADY IN USE 

;BY THIS USER 

;no 
;yes, print error 



POP PDP, TAC 
PUSH PDP,DEVDAT 
PUSHJ PDP.CTEXT1 
SKIPE TACTAC1 
PUSHJ PDP, DEVLG 

JRST ASSFI 

MOVEI TAC, LOGERR 

PUSHJ PDP, CONMES 

MOVE DEVDAT.(PDP) {RESTORE DDB ADDRESS 

MOVEM TACl,DEVLOG(DEVDAT) ;STORE IN DEVICE DATA BLOCK 

MOVSI TAC1,DVDIRIN ;CLEAR DIRECTORY IN CORE BIT 

ANDCAM TACl.DEVMOD(DEVDAT) 

PUSHJ PDP, ERNAM {PRINT PHYSICAL DEVICE NAME 

POP PDP, DEVDAT 

JSP TAC, CONMES 

ASCIZ / ASSIGNED 



ASCIZ /LOGICAL NAME ALREADY IN USE, / 
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000201 260140 000153' 

000202 322100 000000 

000203 200040 00000? 

000204 260140 000000 

000205 254000 000211' 

000206 260140 000000 

000207 254000 000216' 
000210 263140 000000 



000211 265040 000167' 

000212 472364 051652 

000213 416204 04221? 

000214 532230 342432 

000215 050000 000000 

000216 261140 000006 

000217 260140 000165' 

000220 262140 000006 

000221 265040 000211' 

000222 202570 151634 

000223 236504 040646 

000224 516230 747212 

000225 420321 200000 



02330 
02340 
02350 
02360 
02370 
02380 
02390 
02400 
02410 
02420 
02430 
02440 
02450 
02460 
02470 
02480 
02490 
02500 
02510 
02520 



02530 
02540 
02550 
02560 
02570 
02580 
02590 
02600 



02610 
02620 



{"DEASSIGN DEV" - DEASSIGNS DEVICE FROM CONSOLE 

INTERNAL DEaSSIGN, NOTDEV 

EXTERNAL CTEXTl, DEVSRC, CONMES, ERNAM, DEASG. DEASTY 



DEASSIGN: PUSHJ PDP, CTEXTl 
JUMPE TAC1, DEASTY 
MOVE TAC, TAC1 
PUSHJ PDP, DEVSRC 
JRST DEAER1 
PUSHJ PDP, DEASG 
JRST DEAER2 
POPJ PDP, 



NOTDEV: 
DEAER1 



DEAER2 



;get device name 

;no arg. if 0, deassign all but tty 

{device name 

;search for device 

{not found 

;found, deassign it 

;not previously assigned 

;device deassigned 



JSP TAC, CONMES 



{PRINT NO SUCH DEVICE 



ASCIZ /NO SUCH DEVICE 



PUSH PDP, DEVDAT 
PUSHJ PDP, ERNAM 
POP PDP, DEVDAT 
JSP TAC, CONMES 



ASCI2 / WASN'T ASSIGNED 



{PRINT PHYSICAL DEVICE NAME 
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000226 
000227 
000230 
000231 
000232 
000233 
000234 
000235 
000236 
000237 
000240 
000241 
000242 

000243 
000244 
000245 
000246 
000247 
000250 

000251 
000252 
000253 
000254 
000255 
000256 
000257 
000260 

000261 
000262 
000263 
000264 
000265 
000266 
000267 



000270 
000271 



260140 000050' 
254000 000243' 
332000 000002 
301100 000000 
254000 000243' 
205040 004000 
616042 000033' 
254000 000261' 
200200 00000? 
260140 000000 
254000 000251' 
202303 777777 
254000 000000 

265040 000221' 
446311 442616 
406304 045236 
411011 65263? 
412132 206424 
000000 000000 

261140 000006 
260140 000217' 
262140 000001 
265040 000243' 
202031 451212 
406113 120202 
522510 141620 
426101 505000 

265040 000254' 
452370 220234 
426550 551100 
536032 320222 
472232 444602 
522130 406424 
000000 000000 



350003 000000 
254000 000000 



02630 
02640 
02650 
02660 
02670 
02680 
02690 
02700 
02710 
02720 
02730 
02740 
02750 
02760 
02770 
02780 
02790 
02800 
02810 
02820 
02830 
02840 
02850 
02860 



02870 

02880 
02890 
02900 
02910 
02920 
02930 



02940 
02950 
02960 
02970 



02980 

02990 
03000 
03010 
03020 
03030 
03040 
03050 
03060 
03070 
03080 



J "ATTACH N" - ATTACH CONSOLE TO JOB N 

CHANGES ADDRESS OF TTY DEVICE DATA BLOCK STORED 

JBY THE COMMAND DECODER 



IN -l(PDP) 



INTERNAL 
EXTERNAL 

ATTACH: 



ATT1 



ATT2: 



/ 
ATT4: 



ATTACH 

DECIN,TTYATT, JOBN, ERNAM, CONMES, TTYFND 



PUSHJ PDP.DECIN J 
JRST ATTl ; 

SKIPE TAC1 

CAIL TAC1, JOBN I 
JRST ATTl ; 

MOVSI TAC.JNA J 
TDNN TAC, JBTSTS(TACl) 
JRST ATT4 
MOVE ITEM.TAC1 
PUSHJ PDP,TTYATT 
JRST ATT2 

MOVEM DEVDAT,-1(PDP) 
JRST TTYFND 



GET 
NOT 



JOB NO. 

A NUMBER OR NONE SPECIFIEED 
}0 IS ILLEGAL 
IS JOB NUMBER TOO BIG? 
ILLEGAL JOB NUMBER 
HAS THIS JOB NO BEEN 



ASSIGNED? 



;no, 
; JOB 
;no, 



PRINT ERROR 
NUMBER TO ITEM 
ATTACH TTY 



ERROR CANT ATTACH 

5CHANGE DEV 
ATTACHED. GO SET UP 



DATA 
OUTP. 



BLOCK ADDRES 
BYTE PTR. 



JSP TAC. CONMES 

ASCIZ /ILLEGAL JOB NUMBER 



PUSH PDP.DEVDAT 
PUSHJ POP, ERNAM 
POP PDP.TAC 
JSP TAC.CONMES 
ASCI2 / ALREADY 



PRINT TTY DEVICE NAME 



ATTACHED 



JSP TAC. CONMES 

ASCIZ /JOB NEVER WAS INITIATED 



; "DETACH" - DETACH CONSOLE FORM JOB 

INTERNAL DETACH 
EXTERNAL TTYDET 



DETACH: 



AOS (PDP) 
JRST TTYDET 

END, 



;SUPRESS CR-LF SO NO TTY DOB SETUP 
JGO DETACH TTY 



THERE ARE NO ERRORS 



PROGRAM BREAK IS 000272 
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A 

AC1 

AC? 

AC3 

AL 

ANYRDX 

ANYRIN 

ASSASG 

ASSCON 

ASSER1 

ASSF1 

ASSFIN 

ASSG0 

ASSG1 

ASSG2 

ASSIGN 

ASSMS2 

ASSN 

ASSPRG 

ATT1 

ATT2 

ATT4 

ATTACH 

B 

BUFPNT 

BUFWRD 

CLOSR 

CLSIN 

CLSOUT 

COMERA 

CONMFS 

CONT 

CONTA 

CONTC 

CONTM 

CONTU 

C0R2 

C0R3 

CORE 

CORE1 

CPOPJ 

CPOPJ1 

CRLF 

CTFXT1 

n 

DAT 

DCL 

OCW 

DDI 

DDO 

DDT1 

DDTGO 

DDTMEM 

ODTSYM 

DEAER1 



000000 
000015 
000016 
000017 
000001 
000142' 

000000 

000126' 

400000 

000135' 

000161' 

000151' 

000113' 

000120' 

000131' 

000105' 

000144' 

000112' 

200000 

000243' 

000251' 

000261' 

000226' 

000014 

000012 

000013 

002000 

000002 

000001 

000077 

000261 

000022 

000025 

000032 

000034 

000024 

000065 

000077 

000050 

000054 

000057 

000021 

000143 

000201 

000017 

000005 

000001 

020000 

000007 

000006 

000043* 

000036' 

000037 

000036 

000211' 



INT 
INT 
INT 
INT 
INT 
FXT 
EXT 
FXT 
INT 



INT 



INT 



INT 
INT 
INT 
INT 
INT 
INT 
INT 
FXT 
FXT 
INT 

INT 
FXT 
FXT 



INT 
FXT 
FXT 
FXT 
FXT 
FXT 
TNT 
INT 
INT 
INT 
INT 
INT 

INT 
INT 
INT 
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DEAER2 

DEASG 

OEASSI 

OEASTY 

OECIN 

OEN 

DETACH 

DEVADR 

DEVBUF 

DEVCHR 

DEVCTR 

DEVDAT 

DEVIAD 

OEVIOS 

DEVLG 

OEVLOG 

OEVLST 

DEVMOD 

DEVNAM 

DEVOAD 

DEVPTR 

DEVSFR 

DEVSRC 

DGF 

DIGITA 

DIM 

DLK 

DOU 

DR 

DRL 

DSI 

DSO 

DTW 

OVAVAL 

DVCDR 

DVDIR 

DVDIRI 

DVTN 

DVLPT 

DVMTA 

DVOUT 

DVTTY 

FNTRB 

ERNAM 

GET 

GETJOB 

I 

IB 

IBUFB 

IJOB 

INITB 

INPB 

10 

IOACT 

IOREG 



000216' 




000206' 


FXT 


000201' 


INT 


000202' 


FXT 


000226' 


FXT 


000004 


INT 


000?70 ' 


INT 


000007 


TNT 


000006 


INT 


C00001 


INT 


000011 


INT 


000006 


INT 


000007 


INT 


000002 


INT 


000155' 


FXT 


00000 5 


INT 


000112' 


FXT 


5100004 


INT 


000000 


INT 


000010 


INT 


000010 


INT 


000003 


INT 


000204' 


FXT 


000012 


INT 


000045' 


INT 


000003 


INT 


000005 


INT 


000002 


INT 


000016 


INT 


000000 


INT 


000011 


TNT 


000010 


INT 


040000 


INT 


000040 


TNT 


100000 


INT 


000004 


INT 


400000 


INT 


000002 


INT 


040000 


TNT 


000020 


INT 


000001 


INT 


000010 


INT 


020000 


INT 


000252' 


FXT 


000103' 


INT 


000103' 


FXT 


000010 


INT 


000013 


INT 


200000 


INT 


000000' 


INT 


400000 


INT 


010000 


INT 


000020 


INT 


010000 


INT 


000002 


INT 



COMCON - COMMAND CONTROL - THE COMMAND SETUP ROUTINES 
SYMBOL TABLE 



PAGE 14 



IOBKTL 
IOCON 
IODEND 
IODERR 

ionise 

•IODONE 

IODTER 

IOEND 

IOFST 

IOIMPM 

IONRCK 

IORDEL 

IOPET 

IOS 

IOSTRT 

IOUSE 

IOW 

IOWC 

IOWS 

ITEM 

JBFADR 

JBFCTR 

JBFPTR 

JBTADR 

JBTSTS 

JBUF 

JDAT 

JERR 

JIOW 

JNA 

JORDDT 

JOBINI 

JORKIL 

JOBN 

JORPFI 

JOBPR1 

JOBPRT 

JORSA 

JORZER 

KJOB 

LOGERR 

LOOKR 

MONJOB 

MTW 

NOTDEV 

NOTENF 

OBUFB 

OCTIN 

OUTPR 

PDP 

PICHN 

PJOB 

PJOBM 

PROG 

RADX10 



040000 


INT 


000040 


INT 


020000 


INT 


200000 


INT 


400000 


INT 


400000 


INT 


100000 


INT 


000040 


INT 


000004 


INT 


400000 


INT 


"7S00100 


INT 


000100 


INT 


000020 


INT 


000000 


INT 


000010 


INT 


400000 


INT 


000001 


INT 


000020 


INT 


400000 


INT 


000004 


INT 


000000 


INT 


000002 


INT 


000001 


INT 


000056 


' EXT 


000234 


' EXT 


000005 


INT 


000011 


INT 


002000 


INT 


100000 


INT 


004000 


INT 


000036 


» EXT 


000000 


' EXT 


000004 


FXT 


000231 


FXT 


000063 


FXT 


000062 


FXT 


000061 


FXT 


000017' 


FXT 


000053 


FXT 


000004 


INT 


000173 




040000 


INT 


000000 


FXT 


010000 


INT 


000211 


INT 


000106 


FXT 


100000 


INT 


000013" 


FXT 


004000 


INT 


000003 


INT 


000100 


INT 


000001 


INT 


000141' 


FXT 


000007 


INT 


000065' 


FXT 



COMCON - COMMAND 
SYMBOL TABLE 

RUN 
RUNABL 

SAVE 

SAVJOB 

SGSET 

ST? 

ST3 

START 

START1 

STARTC 

STARTM 

STARTU 

STRT 

SYSTAP 

T 

Tl 

TAC 

TAC1 

TEM 

TTYATC 

TTYATT 

TTYDET 

TTYFND 

TTYUSE 

USRMOO 

UUO 
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22)0000 


INT 




204000 


INT 




000101 ' 


INT 




000101' 


EXT 




000104' 


EXT 




000016' 






000020' 






000005' 


INT 




000000 


FXT 




000010' 


INT 




000012' 


EXT 




000044' 


EXT 




000013' 






000121' 


FXT 




000013 






000012 






000001 


INT 




000002 


INT 




00 010 


INT 




020000 


INT 




000237* 


EXT 




000271' 


FXT 




000242' 


EXT 




010000 


INT 




010000 


INT 




000014 


INT 
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